﻿Public Class SearchForm
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub search_Click(sender As Object, e As EventArgs)
        Dim xx = enumImages(Me.Datum.Text)
        For Each a In xx
            Response.Write(a.Name)
        Next
        DataLists1.Enabled = True
        DataLists1.DataSource = xx
        DataLists1.DataBind()

    End Sub

    Protected Sub DataLists1_SelectedIndexChanged(sender As Object, e As EventArgs)

    End Sub
End Class